ParametricStudy<-function(){
  Alpha<-seq(0,1,by=.1)
#   TestRisk=matrix(nrow=length(Temp),ncol=5)
  cost=vector(length=66)
  conf=vector(length=66)
  count = 0
  for(scale in 0:5){
    for(x in 1:11){
      alpha = Alpha[x]
      risk=CalcSparesRisk(BNcK,PartProbs,RecertSched,PartCost,ThroughPut,Capacity,RecertCost,StorageCost,alpha,scale)
      count = count +1
      cost[count]=risk[1]
      conf[count]=risk[2]
      }
      
#     plot(Temp,conf,col="red")
#     lines(Temp,conf,col="red")
# #     lines(Temp,cost,col="blue")
#     title(main=scale)

  }
  plot(cost,conf,type="p")
#   return(risk)
}